﻿Public Class TestClass
    Inherits FixSoft.Fixed.Forms.UseHyperAero
    '  Dim WithEvents TestFrm As New FixSoft.Fixed.Forms.FrmHyperGrahic
    ' Protected Overrides ReadOnly Property FrmHyperGraphic As FixSoft.Fixed.Forms.FrmHyperGrahic
    '    Get
    '       If TestFrm IsNot Nothing Then
    '          Return TestFrm
    '     Else
    '        Return MyBase.FrmHyperGraphic
    '   End If
    '
    '   End Get
    'End Property
    Public Sub ShowIt()
        FrmHyperAero = New FixSoft.Fixed.Forms.HyperAero
        Update()
        FrmHyperAero.Show()
    End Sub
End Class
